home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / prog / hcn305.arj / TUTOR09.PAS < prev    next >
Pascal/Delphi Source File  |  1993-04-21  |  703b  |  29 lines
  1. program Tutor09;
  2. {$N+,E+}          {Required for floating point number handling}
  3. uses
  4.    CRT,
  5.    GSOB_DBF,
  6.    GSOB_VAR;
  7. var
  8.    MyFile  : GSO_dBaseFld;
  9. begin
  10.    ClrScr;
  11.    MyFile.Init('TUTOR1');
  12.    MyFile.Open;
  13.    MyFile.GetRec(Bttm_Record);
  14.    MyFile.LogicPut('PAIDFLAG',true);
  15.    MyFile.PutRec(MyFile.RecNumber);
  16.    MyFile.GetRec(Top_Record);
  17.    while not MyFile.File_EOF do
  18.    begin
  19.       write(MyFile.DelFlag:6,'  ',MyFile.RecNumber:4,'  ',
  20.               'PAIDFLAG is Set ',
  21.               MyFile.LogicGet('PAIDFLAG'));
  22.       if MyFile.LogicGet('PAIDFLAG') then
  23.          writeln('******')
  24.       else writeln;
  25.       MyFile.GetRec(Next_Record);
  26.    end;
  27.    MyFile.Close;
  28. end.
  29.